home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed1.d64 / count to ten (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  231 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  16. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  17. 95 IFLEN(US$)=0THEN110
  18. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  19. 105 RETURN
  20. 110 IFUA=46THENRETURN
  21. 115 IFUA=32ANDUR<>0THENRETURN
  22. 120 IFUA>47ANDUA<58THENRETURN
  23. 125 IFUA>64ANDUA<91THENRETURN
  24. 130 IFUA<193ORUA>218THENUI$="":RETURN
  25. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  26. 140 RETURN
  27. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,14
  28. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
  29. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  30. 500 POKE53280,3:POKE53281,3:POKE646,0
  31. 505 PRINT"[147]       INSTRUCTIONS?  [Y] OR [N]":GOSUB760
  32. 510 GETR$:IFR$<>"Y"ANDR$<>"N"THEN510
  33. 515 IFR$="N"THEN575
  34. 520 PRINT"[147]             INSTRUCTIONS [146]"
  35. 525 PRINT"   PLEASE READ THIS TO THE STUDENT":GOSUB760:FORT=1TO1000:NEXT
  36. 530 PRINT"[144]   * WHEN A NUMBER APPEARS, TAP
  37. 535 [153]"     THE  SPACE WAIT BAR THAT NUMBER
  38. 540 PRINT"     OF TIMES.":FORT=1TO1000:NEXT
  39. 545 PRINT"   * A SET OF BLOCKS MATCHING
  40. 550 [153]"     THE NUMBER DISPLAYED WILL
  41. 555 PRINT"     ASSIST IN COUNTING.
  42. 560 [129]T[178]1[164]2000:[130]:[141]760
  43. 565 [153]"       PRESS  SPACE WAIT BAR TO PLAY
  44. 570 GETR$:IFR$<>CHR$(32)THEN570
  45. 575 PRINT"[147]    GET READY TO TAP OUT THE NUMBERS!
  46. 580 [129]TM[178]1[164]3000:[130]
  47. 585 [137]1000
  48. 699 :
  49. 700 [143] <YES>
  50. 705 SS[178]54272:[129]E[178]SS[164]SS[170]28:[151]E,0:[130]
  51. 710 [151]54296,15:[151]54277,42:[151]54278,250
  52. 715 [151]54276,23:[151]54273,23:[151]54272,191
  53. 720 [129]TM[178]1[164]160:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  54. 725 [151]54296,0:[142]
  55. 730 [143] <N0>
  56. 735 SS[178]54272:[129]E[178]SS[164]SS[170]28:[151]E,0:[130]
  57. 740 [151]54296,15:[151]54277,18:[151]54278,242
  58. 745 [151]54276,33:[151]54273,4:[151]54272,48
  59. 750 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  60. 755 [151]54296,0:[142]
  61. 760 [143] <BLIP>
  62. 765 SS[178]54272:[129]E[178]SS[164]SS[170]28:[151]E,0:[130]
  63. 770 [151]54296,6:[151]54277,42:[151]54278,250
  64. 775 [151]54276,23:[151]54273,23:[151]54272,191
  65. 780 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  66. 785 [151]54296,0:[142]
  67. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1:[151]646,9
  68. 801 [153]"     A TPUG EDUCATIONAL PROGRAM
  69. 802 PRINT"           FOR C64 COMPUTERS
  70. 803 [153]"             KINDERGARTEN ":[129]T[178]1[164]1000:[130]
  71. 804 [153]"                                        WAIT";
  72. 805 [153]"                                        WAIT";
  73. 806 [153]"             COUNT TO TEN               WAIT";
  74. 807 [153]"                                        WAIT";
  75. 808 [153]"                                        WAIT":[141]760:[129]T[178]1[164]1000:[130]
  76. 812 [137]500
  77. 835 [129]TM[178]1[164]1000:[130]:[141]760
  78. 837 [151]UN,0:[153][200](UD$,24);"PRESS <SPACE> BAR TO CONTINUEWAIT"
  79. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  80. 845 [142]
  81. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]206
  82. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  83. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  84. 905 UD$[178]"":UP$[178]"                                      "
  85. 909 [142]
  86. 910 [141]900:[153]"LOAD":[153]"CLOSE"
  87. 920 [137]800:[143]  GOSUB800:GOTO500
  88. 950 [129]TM[178]1[164]400:[130]:[142]
  89. 952 [129]TM[178]1[164]1000:[130]:[142]
  90. 1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
  91. 1100 UH[178]1:[141]46000:[141]50010
  92. 1105 [141]46500:V[178]17:[141]47000:[141]45000
  93. 1200 [141]62000
  94. 1201 :
  95. 2100 [141]46000:[141]50020
  96. 2105 [141]46500
  97. 2110 V[178]11:[141]47000:[141]45000
  98. 2115 [141]46500:V[178]25:[141]47000:[141]45000
  99. 2200 [141]62000
  100. 3100 [141]46000:[141]50030
  101. 3105 [141]46500
  102. 3110 V[178]6:[141]47000:[141]45000
  103. 3115 [141]46500:V[178]17:[141]47000:[141]45000
  104. 3120 [141]46500:V[178]28:[141]47000:[141]45000
  105. 3200 [141]62000
  106. 4100 [141]46000:[141]50040
  107. 4105 [141]46500:V[178]2:[141]47000:[141]45000
  108. 4110 [141]46500:V[178]12:[141]47000:[141]45000
  109. 4115 [141]46500:V[178]22:[141]47000:[141]45000
  110. 4120 [141]46500:V[178]32:[141]47000:[141]45000
  111. 4200 [141]62000
  112. 5100 [141]46000:[141]50050
  113. 5105 [141]46500:V[178]1:[141]47000:[141]45000
  114. 5110 [141]46500:V[178]9:[141]47000:[141]45000
  115. 5115 [141]46500:V[178]17:[141]47000:[141]45000
  116. 5120 [141]46500:V[178]25:[141]47000:[141]45000
  117. 5125 [141]46500:V[178]33:[141]47000:[141]45000
  118. 5200 [141]62000
  119. 6100 [141]46000:[141]50060
  120. 6105 [141]46500:V[178]6:[141]47000:[141]45000
  121. 6110 [141]46500:V[178]17:[141]47000:[141]45000
  122. 6115 [141]46500:V[178]28:[141]47000:[141]45000
  123. 6120 [141]48000:V[178]6:[141]47000:[141]45000
  124. 6125 [141]48000:V[178]17:[141]47000:[141]45000
  125. 6130 [141]48000:V[178]28:[141]47000:[141]45000
  126. 6200 [141]62000
  127. 7100 [141]46000:[141]50070
  128. 7105 [141]46500:V[178]2:[141]47000:[141]45000
  129. 7110 [141]46500:V[178]12:[141]47000:[141]45000
  130. 7115 [141]46500:V[178]22:[141]47000:[141]45000
  131. 7120 [141]46500:V[178]32:[141]47000:[141]45000
  132. 7125 [141]48000:V[178]6:[141]47000:[141]45000
  133. 7130 [141]48000:V[178]17:[141]47000:[141]45000
  134. 7135 [141]48000:V[178]28:[141]47000:[141]45000
  135. 7200 [141]62000
  136. 8100 [141]46000:[141]50080
  137. 8105 [141]46500:V[178]2:[141]47000:[141]45000
  138. 8110 [141]46500:V[178]12:[141]47000:[141]45000
  139. 8115 [141]46500:V[178]22:[141]47000:[141]45000
  140. 8120 [141]46500:V[178]32:[141]47000:[141]45000
  141. 8125 [141]48000:V[178]2:[141]47000:[141]45000
  142. 8130 [141]48000:V[178]12:[141]47000:[141]45000
  143. 8135 [141]48000:V[178]22:[141]47000:[141]45000
  144. 8140 [141]48000:V[178]32:[141]47000:[141]45000
  145. 8200 [141]62000
  146. 9100 [141]46000:[141]50090
  147. 9105 [141]46500:V[178]1:[141]47000:[141]45000
  148. 9110 [141]46500:V[178]9:[141]47000:[141]45000
  149. 9115 [141]46500:V[178]17:[141]47000:[141]45000
  150. 9120 [141]46500:V[178]25:[141]47000:[141]45000
  151. 9125 [141]46500:V[178]33:[141]47000:[141]45000
  152. 9130 [141]48000:V[178]2:[141]47000:[141]45000
  153. 9135 [141]48000:V[178]12:[141]47000:[141]45000
  154. 9140 [141]48000:V[178]22:[141]47000:[141]45000
  155. 9145 [141]48000:V[178]33:[141]47000:[141]45000
  156. 9200 [141]62000
  157. 10100 [153]"LOAD":[129]I[178]1[164]14:[153]"";:[130]:[141]50010:[153]"":[129]I[178]1[164]20
  158. 10102 [153]"";:[130]:[141]50100
  159. 10105 [141]46500:V[178]1:[141]47000:[141]45000
  160. 10110 [141]46500:V[178]9:[141]47000:[141]45000
  161. 10115 [141]46500:V[178]17:[141]47000:[141]45000
  162. 10120 [141]46500:V[178]25:[141]47000:[141]45000
  163. 10125 [141]46500:V[178]33:[141]47000:[141]45000
  164. 10130 [141]48000:V[178]1:[141]47000:[141]45000
  165. 10135 [141]48000:V[178]9:[141]47000:[141]45000
  166. 10140 [141]48000:V[178]17:[141]47000:[141]45000
  167. 10145 [141]48000:V[178]25:[141]47000:[141]45000
  168. 10150 [141]48000:V[178]33:[141]47000:[141]45000
  169. 20000 [129]T[178]1[164]1500:[130]
  170. 20010 [153]"LOAD     VERY GOOD!":[141]700::[129]T[178]1[164]1000:[130]:[137]63000
  171. 45000 [153]"(null)(null)(null)(null)(null)(null)CMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)CMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)CMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)";
  172. 45002 [153]"CMDCMDCMDCMDCMDCMDONONONSPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC(CMDCMDCMDCMDCMDCMDSPC(SPC(SPC(SPC(SPC(SPC(";
  173. 45004 [153]"CMDCMDCMDCMDCMDCMDONONON      CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMD      CMDCMDCMDCMDCMDCMDWAIT";
  174. 45006 [153]"ONONON";
  175. 45010 [161]G$:[139]G$[179][177][199](32)[167]45000
  176. 45012 [142]
  177. 46000 [153]"LOAD":[129]I[178]1[164]17:[153]"";:[130]:[142]
  178. 46500 [153]"":[129]I[178]1[164]14:[153]"";:[130]:[142]
  179. 47000 [129]I[178]1[164]V:[153]"";:[130]:[142]
  180. 48000 [153]"":[129]I[178]1[164]20:[153]"";:[130]:[142]
  181. 50010 [153]"STEP CMD CMD CMD CMD CMD CMD CMD CMD CMD CMD CMDCMD   WAIT"
  182. 50015 [142]
  183. 50020 [153]"(null)ONCMD ONCMDSTEPWAITSTEPONCMDSTEP   (null)CMDWAIT(null)(null)CMD CMDCMDSTEPWAITSTEPCMDCMDCMDSTEPWAITSTEPCMDCMDCMDSTEPWAITSTEPCMDCMDCMDSTEPWAITSTEP";
  184. 50022 [153]"CMDCMDCMDSTEPWAITSTEPCMDCMD CMD CMD CMD      WAIT"
  185. 50025 [142]
  186. 50030 [153]"(null)ONCMD ONCMDSTEPWAITSTEPONCMDSTEP  (null)(null)CMDCMDWAIT(null) CMD CMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEP(null)CMDCMDWAIT(null)(null)(null)CMD CMD ";
  187. 50032 [153]"CMDWAITSTEPCMDCMDSTEPWAITCMDSTEPCMDCMD CMDCMD CMDCMDWAIT(null)ONCMD(null)WAITCMDCMD(null)ONCMD ONCMDSTEPWAIT"
  188. 50035 [142]
  189. 50040 [153]"STEPCMDWAITSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMD CMD CMD CMD CMD     ";
  190. 50042 [153]"ONCMDCMD ONCMD CMD CMD WAIT"
  191. 50045 [142]
  192. 50050 [153]" ONCMD CMDCMD CMDCMD CMDCMD CMDCMD CMDCMD CMD CMD CMD CMD CMD CMD WAITSTEPONCMDSTEP   (null)CMD CMDCMDWAIT(null) ";
  193. 50052 [153]"CMD CMD CMD CMDCMDSTEPWAITSTEPCMDCMD CMDCMD CMDCMD CMDCMD WAITCMDCMD(null)ON(null)CMDCMD ONCMD WAIT"
  194. 50055 [142]
  195. 50060 [153]"STEPCMD CMDCMDSTEPCMDCMDSTEP WAITSTEPCMDCMDSTEPCMDCMD CMDCMDSTEPCMDCMDSTEP WAITSTEPCMDCMDSTEPCMDCMD CMDCMDSTEPCMD     (null)CMDCMDWAIT(null)";
  196. 50062 [153]" CMD CMD CMDCMDSTEP CMDWAITSTEPCMDCMD CMDCMD CMDCMD CMDCMD CMDCMDWAIT(null)ON(null)CMDCMD ONCMD ONCMD ONCMD WAITSTEP"
  197. 50065 [142]
  198. 50070 [153]" ONCMD      CMD CMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMD CMD CMD CMD CMD";
  199. 50072 [153]" "
  200. 50075 [142]
  201. 50080 [153]"STEP  (null)CMDWAIT(null)(null)CMD CMD CMDWAITSTEPCMDCMDSTEPCMDWAITSTEPCMDCMD CMD (null)CMDWAIT(null)(null)CMD CMD CMDWAITSTEPCMDCMDSTEPCMDWAITSTEPCMDCMD CMDCMD ";
  202. 50082 [153]"CMDCMDWAIT(null)ONCMD(null)CMDCMDWAIT(null)ONCMD ONCMD ONCMDSTEPWAITSTEPONCMDSTEP ONCMD CMDCMDWAIT(null)ONCMD(null)CMDCMDWAIT(null)CMDON ONCMD ONCMDSTEPWAITSTEPONCMDSTEPWAIT"
  203. 50085 [142]
  204. 50090 [153]"STEP    (null)CMDCMDWAIT(null) CMD CMD CMD CMDCMDSTEP CMDCMD CMDCMD  CMDCMD CMDCMD CMDCMD CMDCMDWAIT(null)ON(null)CMDCMD CMDON CMDON CMDON WAITSTEP";
  205. 50092 [153]"STEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEPCMDCMDSTEPCMDCMDSTEPWAITSTEPCMDCMDSTEP"
  206. 50095 [142]
  207. 50100 [153]"STEP  (null)(null)CMDCMDWAIT(null) CMD CMD CMD CMD CMD CMD CMD CMDWAITSTEPCMDCMDSTEPCMDWAITSTEPCMDCMD CMDCMD CMDCMDWAIT(null)";
  208. 50102 [153]"ONCMD(null)CMDCMDWAIT(null)ONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONCMDCLOSEONWAITSTEPCMDCMDSTEPWAIT"
  209. 50105 [142]
  210. 60000 [153]""
  211. 62000 [141]700:[129]TM[178]1[164]2000:[130]
  212. 62005 [142]
  213. 63000 [153]"LOAD                WOW!!! ":[141]700:[129]T[178]1[164]1000:[130]
  214. 63010 [153]"            DID YOU HAVE FUN?":[141]760:[129]TM[178]1[164]1000:[130]
  215. 63020 [153]"            THAT WAS GREAT!!!":[141]700:[129]T[178]1[164]2000:[130]
  216. 63030 [141]835
  217. 63100 [153]"LOAD  WHAT DO YOU WISH TO DO?
  218. 63110 PRINT"  PRESS  P [146] TO PLAY AGAIN
  219. 63120 [153]"  OR
  220. 63130 PRINT"  PRESS  M [146] TO RETURN TO  MENU [146]
  221. 63140 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[167]63140
  222. 63150 [139]R$[178]"P"[167][140]:[137]800
  223. 63160 [151]631,13:[151]198,2
  224. 63170 [153]"LOAD  RETURNING TO  MENU WAIT
  225. 63180 LOAD"MENU",8
  226. 63185 RUN
  227. 63190 END
  228. 63500 REM DERIVED FROM COMMODORE ONTARIO          EDUCATION PROJECT 1983
  229. 63510 REM SHRUNK - ED VANDERZEEUW 1989
  230. 63520 REM UPDATED - BILL CUMBERLAND 1989
  231.